home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk165 / rexxgenlock / genlock.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-19  |  3KB  |  65 lines
  1. /* example arexx script to control the SuperGen genlock device. */
  2. /* by Bob Dickow */
  3.  
  4. /* ...actually, this simply interfaces the CLI to the command host via  */
  5. /* AREXX. It could also be used from programs such as The Director,     */
  6. /* using its EXECUTE command.                                           */
  7.  
  8. /* To use this with arexx, type: rx genlock.gen <command> [arg1...arg4] */
  9. /* N.B. Don't forget to first run the command host program (genlock).   */
  10. /* The available commands are:                                          */
  11.  
  12. /*         ON BackGroundValue BGnoVB GraphicsValue GnoVB                */
  13. /*          ( BackGroundValue and GraphicsValue may range from 0 to 63  */
  14. /*            BGnoVB and GnoVB, if positive and >0, specify a rate      */
  15. /*            to ramp to the specified value from the previously set    */
  16. /*            value. So, to fade in the amiga graphics and fade out the */
  17. /*            video image, you would type <0 200 0 200>. Try changing   */
  18. /*            the 200's for different speeds. If BGnoVB and/or GnoVB    */
  19. /*            are zero, the change is immediate. If they are negative,  */
  20. /*            no change will take place. )                              */
  21.  
  22. /*        OFF BackGroundValue BGnoVB GraphicsValue GnoVB                */
  23. /*          ( Using OFF instead of ON disables the software control of  */
  24. /*            the genlock [the sliders will come back to life!] while   */
  25. /*            still allowing you to change the internal values of the   */
  26. /*            'software sliders' without affecting the video. )         */
  27.  
  28. /*        GENPRI [0 - 8]                                                */
  29. /*          ( ...where 0 is minimum priority and 8 is maximum, this     */
  30. /*            command sets the internal genlock priority. If the CALL   */
  31. /*            PRIORITY (see below) is equal or greater to this value,   */
  32. /*            the commands will have an effect, otherwise nothing will  */
  33. /*            happen at all. This might be useful if you plan to have   */
  34. /*            lots of different programs control the genlock at the     */
  35. /*            same time. The default value is set to 8. If you leave    */
  36. /*            the arguments off, the command host will return a result  */
  37. /*            (if you set options results--see below) string specifying */
  38. /*            the current priority setting.)                            */
  39.  
  40. /*        CALLPRI [0 - 8]                                               */
  41. /*          ( Behaves much like GENPRI above, but affects the priority  */
  42. /*            of the CALL's, or ON and OFF commands above. If the value */
  43. /*            is below the GENLOCK PRIORITY (GENPRI) then the commands  */
  44. /*            will not have an effect.)                                 */
  45.  
  46. /*        QUIT                                                          */
  47. /*          ( tells the command host to clean up and exit to the CLI )  */
  48.  
  49. /* ******************************************************************** */
  50.  
  51. options results
  52.  
  53. address 'genlock'
  54.  
  55. parse upper arg a
  56.  
  57. if (LENGTH(a) > 0) then interpret a
  58.  
  59. if a = GENPRI then say 'The current genlock priority is' result
  60. if a = CALLPRI then say 'The current call priority is'   result
  61.  
  62. exit
  63.  
  64. /*  END OF SCRIPT */
  65.